home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d8 / mintel.arc / NETLOGON.MT < prev    next >
Encoding:
Text File  |  1989-10-12  |  1.6 KB  |  54 lines
  1.     { netlogon.mt - perform logon to the infonet network videotex center }
  2.  
  3.     { send CRs until we get a response from the network }
  4.     loop 8
  5.         type CR
  6.         wait 8
  7.             case '#'
  8.                 break
  9.             case '*'
  10.                 branch reqService
  11.         endwait
  12.  
  13.         at_end_do
  14.             message 'PAD not responding with #'
  15.             quit
  16.     endloop
  17.  
  18.     { request X.3 pad service }
  19.     type 'x' CR
  20.     wait 100
  21.         case '*'                        { success }
  22.             { do nothing }
  23.         failure
  24.             message 'PAD not responding with *'
  25.             quit
  26.     endwait
  27.  
  28. reqService:                             { request connection to VCC }
  29.     type '.vmt' CR          
  30.  
  31.     { wait for connection }
  32.     wait 600
  33.         case '^_IS^Q'                   { wait till the userid prompt }
  34.             { send userid if present }
  35.             if userid then
  36.                 type userid NEXT            { send network userid/password }
  37.  
  38.                 { send password if present }
  39.                 if password then
  40.                     { wait for password prompt }
  41.                     wait 100 case '^_MS' endwait
  42.  
  43.                     { switch to graphics mode to hide password }
  44.                     type '^_MW^N^SG^SG^SG^SG' password SEND
  45.                 endif
  46.             endif
  47.         case 'CLR', 'ERR'
  48.             message 'Unable to connect to network service'
  49.         failure                         { timeout or line dropped }
  50.             message 'User ID prompt not received'
  51.     endwait
  52.     end
  53.  
  54.